home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / macros.arc / RLSX.ASM < prev    next >
Encoding:
Assembly Source File  |  1983-11-17  |  1.2 KB  |  16 lines
  1.  
  2. *                                                                               
  3. *MOVE A TO B (DOUBLE VAR) WITH N(CONST) BIT                                     
  4. *RIGHT LOGICAL SHIFT                                                            
  5. *                                                                               
  6. RLSX  $MACRO  A,B,N     MOVE DOUBLE WITH LOGICAL SHIFT                          
  7.       RLSH :A:+1,:B:+1,:N: SHIFT RIGHT LOWER                                    
  8.       LAC  :A:,16-:N:   GET UPPER (RIGHT SHIFT)                                 
  9.       SACH :B:,0        SAVE IN :B: HIGH                                        
  10.       OR   :B:+1        COMBINE LOW PARTS                                       
  11.       SACL :B:+1,0      SAVE IN :B: LOW                                         
  12.       LAC  MINUS,16-:N: GET MASK                                                
  13.       NOT                                                                       
  14.       AND  :B:          MASK HIGH :B:                                           
  15.       SACL :B:,0        SAVE BACK IN :B:                                        
  16.       $END